home *** CD-ROM | disk | FTP | other *** search
/ Exploring Where & Why / Exploring Where & Why.iso / pc / MODULES / LESSON06 / ACT06B / L06B1.dir / scripts_27_playagain.ls < prev    next >
Encoding:
Text File  |  2004-07-12  |  277 b   |  10 lines
  1. on mouseDown
  2.   if bounceButton(the clickOn) then
  3.     the itemDelimiter = "."
  4.     theMovie = item 1 of the movieName
  5.     the itemDelimiter = ","
  6.     put value(the last char in theMovie) + 1 into char length(theMovie) of theMovie
  7.     go(1, the moviePath & theMovie)
  8.   end if
  9. end
  10.